(calc-store-into): Get proper variable name to display in message.

diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el
index 82c7077ba91c36ba6b7831cd6c8aabb6d63b6141..d6a37644cc760d6575e6fb6085e34338e05f0aa2 100644 (file)
--- a/lisp/calc/calc-store.el
+++ b/lisp/calc/calc-store.el
@@ -71,7 +71,7 @@
                                       (if (not (cdr var)) "")
                                       (if (not (cdr var)) 1))))
                (message (concat "Stored to variable \"%s\"" msg)
-                        (calc-var-name var)))
+                        (calc-var-name (car (car var)))))
             (setq var (cdr var))))))))
 
 (defun calc-store-plus (&optional var)